home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / asm / Tandem.lha / Tandem / Teaching / 20.i < prev    next >
Encoding:
Text File  |  1999-08-21  |  252 b   |  11 lines
  1. * Teaching/16.i   (to demonstrate INCLUDE)
  2.  
  3.  xref _LVODisplayBeep
  4.  
  5. * beep the screen (intuition.library must already be in intbase)
  6. Beep:
  7.  move.l intbase,a6
  8.  sub.l a0,a0             ;a0=0 to beep all screens
  9.  jsr _LVODisplayBeep(a6) ;beep screens
  10.  rts
  11.